home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / mort.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-04  |  1.4 KB  |  73 lines
  1. 100  KEY OFF:WIDTH 80:CLS:PRINT"AMORTIZATION"
  2. 110  PRINT"COMPAQ PC":U$="###    ####.##    #####.##    #####.##     ####.##    ######.##   #####.##"
  3. 130  PRINT
  4. 140  PRINT"THIS PROGRAM CALCULATES A MONTHLY LOAN PAYMENT"
  5. 150  PRINT"SCHEDULE.  IT DISPLAYS THE PAYMENT, BALANCE, PRINCIPAL
  6. 160  PRINT "INTEREST, AND CUM. INTEREST FOR EACH MONTH OF THE LOAN
  7. 165  PRINT
  8. 170  PRINT "ENTER THE PRINCIPAL (AMOUNT OF THE LOAN)"
  9. 190  INPUT A
  10. 200  PRINT
  11. 210  PRINT "ENTER THE YEARLY INTEREST RATE (%)"
  12. 220  INPUT I
  13. 230  PRINT
  14. 240  PRINT "ENTER THE MONTHLY PAYMENT"
  15. 250  INPUT P
  16. 260  PRINT
  17. 270  PRINT "ENTER '1' TO BEGIN"
  18. 280  INPUT L
  19. 290  CLS
  20. 291  LPRINT TAB(17)"AMORTIZATION SCHEDULE"
  21. 292  LPRINT
  22. 293  LPRINT "AMOUNT OF LOAN = $";A;" AT ";I;"%"
  23. 300  B=A
  24. 310  REM PRINT SCHEDULE
  25. 320  LPRINT
  26. 330  LPRINT
  27. 360  LPRINT
  28. 370  LPRINT"MONTH  PAYMENT    BALANCE     PRINCIPAL     INTEREST   CUM. INT   CUM. PCL"
  29. 380  Y=1
  30. 390  R=0
  31. 400  IF A<=P THEN 680
  32. 410  GOSUB 530
  33. 420  LPRINT USING U$;Y;P;P2;P0;I2;R;C
  34. 430  GOSUB 500
  35. 440  Y=Y+1
  36. 450  IF P2=0 THEN 470
  37. 460  GOTO 400
  38. 470  LPRINT
  39. 480  LPRINT "TOTAL INTEREST=";USING V$;R
  40. 482  T1=B+R
  41. 485  LPRINT"TOTAL SPENT ON THIS LOUSY PLACE WAS $";USING V$;T1
  42. 490  END
  43. 500  REM
  44. 510  REM
  45. 520  RETURN
  46. 530  REM CALC BALANCE AND INTEREST
  47. 540  I2=A*(I/100)
  48. 550  I2=I2/12
  49. 560  GOSUB 630
  50. 570  P2=A-(P-I2)
  51. 580  P0=P-I2
  52. 590  P2=INT(P2*100+0.5)/100
  53. 600  A=P2
  54. 610  R=I2+R
  55. 611  C=B-P2
  56. 620  RETURN
  57. 630  REM ROUND 'EM OFF PAST THE DECIMAL TO 2 DIGITS
  58. 640  I3=I2*100
  59. 650  I4=INT(I3+0.5)
  60. 660  I2=I4/100
  61. 670  RETURN
  62. 680  REM CALC LAST PAYMENT
  63. 690  I2=P2*(I/100)
  64. 700  I2=I2/12
  65. 710  GOSUB 630
  66. 720  P0=P2
  67. 730  P=P2+I2
  68. 740  P2=0
  69. 750  R=I2+R
  70. 760  REM ADDS LAST PRINCIPAL PAYMENT TO CUM.PCL FOR FINAL CUM.PCL
  71. 770  IF P2<P THEN C=C+P0
  72. 780  GOTO 420
  73.